 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Clear EventLog
|
||
|
' The Script clears the specified Eventlog
' Call the Script with the Eventlogname as Parameter. Like "Clear EventLog.vbs" Support On Error Resume Next Dim strArgs : strArgs = "" Call GetArguments(ArgArray) If IsArray(ArgArray) then For Each ArrayElement In ArgArray strArgs = strArgs & ArrayElement Next strArgs = Trim(strArgs) Call ClearEventLog(strArgs) End if ' ---------------------------------- Private Function ClearEventLog(strEventLog) On Error Resume Next Dim strComputer : strComputer = "." Dim oWMIService : Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Dim colLogFiles : Set colLogFiles = oWMIService.ExecQuery("Select * from Win32_NTEventLogFile " & "Where LogFileName='Support'") For Each oLogfile in colLogFiles oLogFile.ClearEventLog() Next Set oWMIService = Nothing Set colLogFiles = Nothing End Function ' ---------------------------------------- Private Function GetArguments(SourceArray) Dim iCount : iCount = 0 If wscript.arguments.count > 0 then ReDim ArgArray(wscript.arguments.count -1) For Each Argument in wscript.arguments ArgArray(iCount) = Argument iCount = iCount +1 Next iCount = Null GetArguments = ArgArray End if End Function | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
